home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Demos / AppMaker 2.0b3 / Demo AppMaker 1.5 / Demo AppMaker™ / Demo AppMaker™.rsrc / TmpP_1007_EditNum < prev    next >
Encoding:
Text File  |  1992-04-08  |  953 b   |  43 lines
  1. %case window field%
  2.     %HandleName%:%        %TEHandle;
  3. %case create%
  4.     SetWFont (%itemname%);
  5.     bounds := GetWRect (%itemname%);
  6.     %HandleName% := TENew (bounds, bounds);
  7.     TESetJust (textJust, %HandleName%);
  8.     TEAutoView (true, %HandleName%);
  9.     %if firstEdit = %
  10.         %set firstEdit = handleName%
  11.     %endif%
  12. %case dispose%
  13.     TEDispose (%HandleName%);
  14. %case mousein%
  15.     if PtInRect (where, %HandleName%^^.viewRect) then begin
  16.         if text <> nil then begin
  17.             TEDeactivate (text);
  18.         end;
  19.         text := %HandleName%;
  20.         TEActivate (text);
  21.         TEClick (where, false, text);
  22.     end;
  23. %case update%
  24.     TEUpdate (thePort^.portRect, %HandleName%);
  25. %case itemNr%
  26.     %DefineItem%
  27. %case dialog field%
  28.     %fieldname%:%        %longint;
  29.     %haveField%
  30. %case init field%
  31.     %fieldname% := 0;
  32. %case set%
  33.     SetDNum (%Itemname%, %Fieldname%);
  34. %case hit%
  35.     %if not disabled%
  36.         %itemname%: begin
  37.                 GetDNum (itemNr, %fieldname%);
  38.             end;
  39.     %endif%
  40. %case finish%
  41.     %if disabled%
  42.         GetDNum (%itemname%, %fieldname%);
  43.     %endif%